Developer CD Series 1995 August: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / Conquest 1.1.sea / Conquest 1.1 / CODE / Control / menus.lisp < prev
MacBinary | 1993-02-14 | 2.5 KB | [TEXT/CCL2]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sun Feb 14 12:31:52 1993, modified Sun Feb 14 12:31:52 1993, creator Common Lisp 2, type ASCII, 1862 bytes "menus.lisp" , at 0x7c6 487 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 6d 65 6e 75 73 2e | 6c 69 73 70 00 00 00 00 |..menus.|lisp....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 07 46 00 | 00 01 e7 a7 a4 32 88 a7 |......F.|.....2..|
|00000060| a4 32 88 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.2......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 63 a5 00 00 |........|....c...|
|00000080| 3b 3b 3b 20 6d 65 6e 75 | 73 2e 6c 69 73 70 0d 3b |;;; menu|s.lisp.;|
|00000090| 3b 3b 0d 3b 3b 3b 20 43 | 4f 4e 51 55 45 53 54 20 |;;.;;; C|ONQUEST |
|000000a0| 41 49 20 50 52 4f 4a 45 | 43 54 0d 3b 3b 3b 0d 3b |AI PROJE|CT.;;;.;|
|000000b0| 3b 3b 20 57 61 73 68 69 | 6e 67 74 6f 6e 20 55 6e |;; Washi|ngton Un|
|000000c0| 69 76 65 72 73 69 74 79 | 20 43 6f 6d 70 75 74 65 |iversity| Compute|
|000000d0| 72 20 53 63 69 65 6e 63 | 65 20 44 65 70 61 72 74 |r Scienc|e Depart|
|000000e0| 6d 65 6e 74 0d 3b 3b 3b | 20 43 6f 70 79 72 69 67 |ment.;;;| Copyrig|
|000000f0| 68 74 20 31 39 39 32 20 | 50 61 75 6c 20 4d 63 43 |ht 1992 |Paul McC|
|00000100| 61 72 74 6e 65 79 2e 20 | 20 41 6c 6c 20 52 69 67 |artney. | All Rig|
|00000110| 68 74 73 20 52 65 73 65 | 72 76 65 64 2e 0d 3b 3b |hts Rese|rved..;;|
|00000120| 3b 0d 3b 3b 3b 20 41 55 | 54 48 4f 52 3a 20 20 50 |;.;;; AU|THOR:  P|
|00000130| 61 75 6c 20 4d 63 43 61 | 72 74 6e 65 79 0d 3b 3b |aul McCa|rtney.;;|
|00000140| 3b 0d 3b 3b 3b 20 44 45 | 53 43 52 49 50 54 49 4f |;.;;; DE|SCRIPTIO|
|00000150| 4e 3a 0d 3b 3b 3b 0d 3b | 3b 3b 20 54 68 69 73 20 |N:.;;;.;|;; This |
|00000160| 66 69 6c 65 20 63 72 65 | 61 74 65 73 20 66 75 6e |file cre|ates fun|
|00000170| 63 74 69 6f 6e 73 20 66 | 6f 72 20 74 68 65 20 63 |ctions f|or the c|
|00000180| 72 65 61 74 69 6f 6e 20 | 61 6e 64 20 64 65 73 74 |reation |and dest|
|00000190| 72 75 63 74 69 6f 6e 20 | 6f 66 20 74 68 65 0d 3b |ruction |of the.;|
|000001a0| 3b 3b 20 63 6f 6e 71 75 | 65 73 74 20 65 6e 76 69 |;; conqu|est envi|
|000001b0| 72 6f 6e 6d 65 6e 74 20 | 64 65 62 75 67 67 69 6e |ronment |debuggin|
|000001c0| 67 20 6d 65 6e 75 73 20 | 61 6e 64 20 75 73 65 72 |g menus |and user|
|000001d0| 20 69 6e 74 65 72 66 61 | 63 65 20 6d 65 6e 75 73 | interfa|ce menus|
|000001e0| 2e 0d 3b 3b 3b 0d 3b 3b | 3b 20 55 53 45 3a 0d 3b |..;;;.;;|; USE:.;|
|000001f0| 3b 3b 0d 3b 3b 3b 0d 0d | 28 69 6e 2d 70 61 63 6b |;;.;;;..|(in-pack|
|00000200| 61 67 65 20 3a 63 6f 6e | 71 75 65 73 74 29 0d 0d |age :con|quest)..|
|00000210| 0d 28 65 78 70 6f 72 74 | 20 27 28 61 70 70 65 6e |.(export| '(appen|
|00000220| 64 2d 64 6f 63 73 2d 6d | 65 6e 75 2d 69 74 65 6d |d-docs-m|enu-item|
|00000230| 29 0d 20 20 20 20 20 20 | 20 20 3a 63 6f 6e 71 75 |).      |  :conqu|
|00000240| 65 73 74 29 0d 0d 0d 28 | 64 65 66 76 61 72 20 2a |est)...(|defvar *|
|00000250| 63 6f 6e 71 75 65 73 74 | 2d 64 6f 63 73 2d 6d 65 |conquest|-docs-me|
|00000260| 6e 75 2a 29 0d 28 64 65 | 66 76 61 72 20 2a 63 6f |nu*).(de|fvar *co|
|00000270| 6e 71 75 65 73 74 2d 64 | 65 62 75 67 2d 6d 65 6e |nquest-d|ebug-men|
|00000280| 75 62 61 72 2a 29 0d 0d | 0d 28 64 65 66 75 6e 20 |ubar*)..|.(defun |
|00000290| 69 6e 69 74 69 61 6c 69 | 7a 65 2d 63 6f 6e 71 75 |initiali|ze-conqu|
|000002a0| 65 73 74 2d 6d 65 6e 75 | 73 20 28 29 0d 20 20 28 |est-menu|s ().  (|
|000002b0| 69 6e 69 74 69 61 6c 69 | 7a 65 2d 6d 65 6e 75 2d |initiali|ze-menu-|
|000002c0| 74 6f 6f 6c 73 29 0d 20 | 20 28 63 72 65 61 74 65 |tools). | (create|
|000002d0| 2d 63 6f 6e 71 75 65 73 | 74 2d 6d 65 6e 75 73 29 |-conques|t-menus)|
|000002e0| 29 0d 0d 0d 28 64 65 66 | 75 6e 20 69 6e 73 74 61 |)...(def|un insta|
|000002f0| 6c 6c 2d 63 6f 6e 71 75 | 65 73 74 2d 64 65 62 75 |ll-conqu|est-debu|
|00000300| 67 2d 6d 65 6e 75 62 61 | 72 20 28 29 0d 20 20 28 |g-menuba|r ().  (|
|00000310| 73 65 74 2d 6d 65 6e 75 | 62 61 72 20 2a 63 6f 6e |set-menu|bar *con|
|00000320| 71 75 65 73 74 2d 64 65 | 62 75 67 2d 6d 65 6e 75 |quest-de|bug-menu|
|00000330| 62 61 72 2a 29 29 0d 0d | 0d 28 64 65 66 75 6e 20 |bar*))..|.(defun |
|00000340| 63 72 65 61 74 65 2d 63 | 6f 6e 71 75 65 73 74 2d |create-c|onquest-|
|00000350| 6d 65 6e 75 73 20 28 29 | 0d 20 20 3b 3b 3b 0d 20 |menus ()|.  ;;;. |
|00000360| 20 3b 3b 3b 20 44 4f 43 | 53 20 4d 45 4e 55 0d 20 | ;;; DOC|S MENU. |
|00000370| 20 3b 3b 3b 0d 20 20 0d | 20 20 28 73 65 74 66 20 | ;;;.  .|  (setf |
|00000380| 2a 63 6f 6e 71 75 65 73 | 74 2d 64 6f 63 73 2d 6d |*conques|t-docs-m|
|00000390| 65 6e 75 2a 0d 20 20 20 | 20 20 20 20 20 28 6d 61 |enu*.   |     (ma|
|000003a0| 6b 65 2d 64 6f 63 73 2d | 6d 65 6e 75 20 22 44 6f |ke-docs-|menu "Do|
|000003b0| 63 73 22 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |cs".    |        |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 27 28 28 22 |        |    '(("|
|000003d0| 43 6f 6e 74 72 6f 6c 3b | 22 20 22 2a 2e 6c 69 73 |Control;|" "*.lis|
|000003e0| 70 22 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |p").    |        |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 22 |        |      ("|
|00000400| 46 6f 75 6e 64 61 74 69 | 6f 6e 3b 22 20 22 2a 2e |Foundati|on;" "*.|
|00000410| 6c 69 73 70 22 29 0d 20 | 20 20 20 20 20 20 20 20 |lisp"). |        |
|00000420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000430| 20 28 22 4c 69 62 72 61 | 72 79 3b 22 20 22 2a 2e | ("Libra|ry;" "*.|
|00000440| 6c 69 73 70 22 29 0d 20 | 20 20 20 20 20 20 20 20 |lisp"). |        |
|00000450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000460| 20 28 22 57 69 6e 64 6f | 77 73 3b 22 20 22 2a 2e | ("Windo|ws;" "*.|
|00000470| 6c 69 73 70 22 29 0d 20 | 20 20 20 20 20 20 20 20 |lisp"). |        |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000490| 20 2d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | -.     |        |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 22 63 |        |     ("c|
|000004b0| 6f 6e 71 75 65 73 74 3b | 22 20 22 2a 22 29 0d 20 |onquest;|" "*"). |
|000004c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004d0| 20 20 20 20 20 20 20 20 | 20 28 22 57 6f 72 6c 64 |        | ("World|
|000004e0| 73 3b 22 20 22 2a 22 29 | 0d 20 20 20 20 20 20 20 |s;" "*")|.       |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000500| 20 20 20 2d 0d 20 20 20 | 20 20 20 20 20 20 20 20 |   -.   |        |
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 29 |        |       )|
|00000520| 29 29 0d 0d 20 20 28 73 | 65 74 66 20 2a 63 6f 6e |))..  (s|etf *con|
|00000530| 71 75 65 73 74 2d 64 65 | 62 75 67 2d 6d 65 6e 75 |quest-de|bug-menu|
|00000540| 62 61 72 2a 20 0d 20 20 | 20 20 20 20 20 20 28 61 |bar* .  |      (a|
|00000550| 70 70 65 6e 64 20 2a 64 | 65 66 61 75 6c 74 2d 6d |ppend *d|efault-m|
|00000560| 65 6e 75 62 61 72 2a 20 | 28 6c 69 73 74 20 2a 63 |enubar* |(list *c|
|00000570| 6f 6e 71 75 65 73 74 2d | 64 6f 63 73 2d 6d 65 6e |onquest-|docs-men|
|00000580| 75 2a 29 20 29 29 0d 20 | 20 29 0d 0d 0d 28 64 65 |u*) )). | )...(de|
|00000590| 66 75 6e 20 6c 6f 61 64 | 2d 70 6c 61 79 65 72 73 |fun load|-players|
|000005a0| 20 28 29 0d 20 20 28 69 | 66 20 28 6e 6f 74 20 28 | ().  (i|f (not (|
|000005b0| 73 68 69 66 74 2d 6b 65 | 79 2d 70 29 29 0d 20 20 |shift-ke|y-p)).  |
|000005c0| 20 20 28 6d 65 73 73 61 | 67 65 2d 64 69 61 6c 6f |  (messa|ge-dialo|
|000005d0| 67 20 22 46 69 6e 64 20 | 61 20 64 69 72 65 63 74 |g "Find |a direct|
|000005e0| 6f 72 79 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 70 |ory cont|aining p|
|000005f0| 6c 61 79 65 72 20 64 69 | 72 65 63 74 6f 72 69 65 |layer di|rectorie|
|00000600| 73 2e 2e 2e 22 29 29 0d | 20 20 0d 20 20 28 6c 65 |s...")).|  .  (le|
|00000610| 74 2a 20 28 28 64 69 72 | 20 28 63 68 6f 6f 73 65 |t* ((dir| (choose|
|00000620| 2d 64 69 72 65 63 74 6f | 72 79 2d 64 69 61 6c 6f |-directo|ry-dialo|
|00000630| 67 29 29 0d 20 20 20 20 | 20 20 20 20 20 28 6c 6f |g)).    |     (lo|
|00000640| 61 64 2d 66 69 6c 65 73 | 20 28 64 69 72 65 63 74 |ad-files| (direct|
|00000650| 6f 72 79 20 28 63 6f 6e | 63 61 74 65 6e 61 74 65 |ory (con|catenate|
|00000660| 20 27 73 69 6d 70 6c 65 | 2d 73 74 72 69 6e 67 20 | 'simple|-string |
|00000670| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 64 69 |        |      di|
|000006a0| 72 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r.      |        |
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 22 |        |       "|
|000006d0| 2a 3a 40 6c 6f 61 64 2e | 6c 69 73 70 22 29 29 29 |*:@load.|lisp")))|
|000006e0| 29 0d 20 20 20 20 28 6d | 61 70 63 20 23 27 6c 6f |).    (m|apc #'lo|
|000006f0| 61 64 20 6c 6f 61 64 2d | 66 69 6c 65 73 29 20 29 |ad load-|files) )|
|00000700| 29 0d 0d 0d 28 64 65 66 | 75 6e 20 61 70 70 65 6e |)...(def|un appen|
|00000710| 64 2d 64 6f 63 73 2d 6d | 65 6e 75 2d 69 74 65 6d |d-docs-m|enu-item|
|00000720| 20 28 64 69 72 20 70 61 | 74 74 65 72 6e 29 0d 20 | (dir pa|ttern). |
|00000730| 20 28 69 66 20 28 6e 6f | 74 20 28 66 69 6e 64 2d | (if (no|t (find-|
|00000740| 6d 65 6e 75 2d 69 74 65 | 6d 20 2a 63 6f 6e 71 75 |menu-ite|m *conqu|
|00000750| 65 73 74 2d 64 6f 63 73 | 2d 6d 65 6e 75 2a 20 64 |est-docs|-menu* d|
|00000760| 69 72 29 29 0d 20 20 20 | 20 28 61 64 64 2d 6d 65 |ir)).   | (add-me|
|00000770| 6e 75 2d 69 74 65 6d 73 | 20 2a 63 6f 6e 71 75 65 |nu-items| *conque|
|00000780| 73 74 2d 64 6f 63 73 2d | 6d 65 6e 75 2a 0d 20 20 |st-docs-|menu*.  |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007a0| 20 20 28 6d 61 6b 65 2d | 64 6f 63 73 2d 6d 65 6e |  (make-|docs-men|
|000007b0| 75 2d 69 74 65 6d 20 64 | 69 72 20 70 61 74 74 65 |u-item d|ir patte|
|000007c0| 72 6e 29 29 29 29 00 00 | 00 00 00 00 00 00 00 00 |rn))))..|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 01 00 00 00 01 95 | 00 00 00 95 00 00 00 52 |........|.......R|
|00000810| 00 00 f0 3a 01 d8 10 02 | 66 1d 00 00 00 00 f0 3d |...:....|f......=|
|00000820| 01 ef 10 02 73 af 00 00 | 00 00 f0 3f 01 52 18 02 |....s...|...?.R..|
|00000830| 0a 6d 65 6e 75 73 2e 6c | 69 73 70 00 02 00 00 00 |.menus.l|isp.....|
|00000840| 54 45 58 54 43 43 4c 32 | 01 00 00 00 00 60 00 00 |TEXTCCL2|.....`..|
|00000850| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 00 00 60 |..TEXTCC|L2.....`|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 a6 e8 ec ef 00 00 | 07 46 00 00 01 e7 f0 31 |........|.F.....1|
|00000880| ff ff 00 00 32 62 00 00 | 00 00 f0 30 ff ff 00 00 |....2b..|...0....|
|00000890| 32 a6 00 00 00 00 f0 32 | ff ff 00 00 32 ea 00 00 |2......2|....2...|
|000008a0| 00 00 f0 3e ff ff 00 00 | ad cf 00 00 00 00 f0 30 |...>....|.......0|
|000008b0| ff ff 20 00 31 3d 00 00 | 00 00 f0 31 ff ff 00 00 |.. .1=..|...1....|
|000008c0| 31 57 00 00 00 00 f0 32 | ff ff 00 00 2e d7 00 00 |1W.....2|........|
|000008d0| 00 00 f0 21 ff ff 00 00 | 81 79 00 00 00 00 f0 3f |...!....|.y.....?|
|000008e0| 00 5b 20 00 06 86 00 00 | 00 00 f0 30 00 65 20 00 |.[ .....|...0.e .|
|000008f0| b5 28 00 00 00 00 f0 31 | 00 6d 20 00 06 f4 00 00 |.(.....1|.m .....|
|00000900| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 06 | 00 08 00 37 00 0f 01 d7 |........|...7....|
|00000930| 02 51 00 37 00 0f 01 d7 | 02 51 00 00 00 00 00 00 |.Q.7....|.Q......|
|00000940| 07 46 00 00 07 46 00 00 | 05 f1 01 00 00 00 00 0f |.F...F..|........|
|00000950| 00 00 05 54 69 6d 65 73 | 06 4d 6f 6e 61 63 6f 00 |...Times|.Monaco.|
|00000960| 00 00 32 00 02 00 14 0c | 01 00 04 09 00 01 00 00 |..2.....|........|
|00000970| 00 02 00 01 77 01 00 01 | c5 02 00 01 c6 01 00 02 |....w...|........|
|00000980| db 02 00 02 df 01 00 02 | e1 02 00 02 ef 01 00 02 |........|........|
|00000990| f1 02 00 02 f5 00 00 01 | 00 00 00 01 95 00 00 00 |........|........|
|000009a0| 95 00 00 00 52 00 23 d0 | 40 07 b8 00 00 00 1c 00 |....R.#.|@.......|
|000009b0| 52 00 01 46 52 45 44 00 | 01 00 12 4d 50 53 52 00 |R..FRED.|...MPSR.|
|000009c0| 00 00 2a 00 02 ff ff 00 | 00 00 5f 00 00 00 00 00 |..*.....|.._.....|
|000009d0| 03 ff ff 00 00 00 4c 00 | 00 00 00 03 ed ff ff 00 |......L.|........|
|000009e0| 00 00 00 00 24 c6 84 00 | 00 00 00 00 00 00 00 00 |....$...|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+